home *** CD-ROM | disk | FTP | other *** search
/ Palm Utilities / Palm_Utilities_CD-ROM_2001_2001.iso / files / graphics conversion / Sweetheart 1.1 / sweetheart11.exe / src / vb / pdb-read-header.bas < prev    next >
Encoding:
BASIC Source File  |  1997-08-30  |  560 b   |  25 lines

  1. Attribute VB_Name = "Module2"
  2. Option Explicit
  3. ' load header from pdb file
  4. Public Sub loadheader(filename As String)
  5. Dim i As Integer
  6. Dim b(1 To 88) As Byte
  7.  
  8. Open filename For Binary Access Read As #1
  9. Get #1, , b()
  10. Close #1
  11. ' write a pseudo basic output
  12. Open "pdb-header.bas" For Output As #1
  13. Dim s As String
  14. Print #1, "dim bheader(1 to 88) as byte"
  15. Print #1, "public sub initheader()"
  16. For i = 1 To 88
  17.     s = s & Str(b(i)) & " "
  18.     Print #1, "bheader(" & Str(i) & ")=" & Str(b(i))
  19. Next i
  20. Print #1, "end sub"
  21. Close #1
  22. MsgBox s
  23. End Sub
  24.  
  25.